home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / winsock / ircii2-6.zip / SCRIPTS\WALLOPST < prev    next >
Text File  |  1994-12-28  |  1KB  |  39 lines
  1. # This one from Snoopy (hellmond@phoenix.princeton.edu
  2. # silent script for ircII (cut and compress, put into script directory)
  3. # =======================
  4. #
  5. # Purpose:
  6. # selective silencing of wallops according to user/oper/server groups
  7. #
  8. # Functioning:
  9. # wallops are identified as either user wallops ($1 = -),
  10. # or oper wallops ($1 = +) or server wallops ($1 = S).
  11. # this allows for selective turning on or off of these three groups
  12.  
  13. # load will make wallops be displayed normally
  14. # loud- is for users, loud+ is for opers, loudS is for servers
  15.  
  16. alias loud- ^on ^wallop "* - *" _show_wallops $$*
  17. alias loud+ ^on ^wallop "* + *" _show_wallops $$*
  18. alias loudS ^on ^wallop "* S *" _show_wallops $$*
  19.  
  20. # silent will push wallops into the status_user variable %U
  21. # which should be defined in the /set status_format line
  22. # silent- is for users, silent+ is for opers, silentS is for servers
  23.  
  24. alias silent- ^on ^wallop "* - *" _handle_wallops $$*
  25. alias silent+ ^on ^wallop "* + *" _handle_wallops $$*
  26. alias silentS ^on ^wallop "* S *" _handle_wallops $$*
  27. alias _handle_wallops ^assign WALLOPS $*;/^set status_user Wallops: !$[9]0$1! $2-
  28.  
  29. # lastwallops will show the last wallops sent 
  30.  
  31. alias lastwallops _show_wallops $WALLOPS
  32. alias _show_wallops echo !$0$1! $2-
  33.  
  34. # Default:
  35. loud-
  36. loud+
  37. loudS
  38. # lynx91; later modification by snoopy (04/92)
  39.